home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9410a.d64 / imp.source #5 < prev    next >
Encoding:
Text File  |  1995-03-30  |  1.6 KB  |  106 lines
  1.  
  2.  
  3.  
  4. ;---------------------------------------
  5. ;
  6. ;       - ╔ ═ ╨ ┼ ╥ ╧ ╔ ─   ╓ 5 -
  7. ;
  8. ;         - BY ╚ANNES ╙OMMER -
  9. ;
  10. ;      - (C) ═ARKT & ╘ECHNIK '94 -
  11. ;
  12. ;---------------------------------------
  13.  
  14. SHLO     = $50
  15. SHHI     = $51
  16. ELO      = $FA
  17. EHI      = $FB
  18. V        = 53248
  19. BE       = $47F8
  20. BORD     = 703
  21.  
  22.          *= $8000
  23.  
  24.          JMP TITLE
  25.  
  26.  
  27. COLS     .BYTE 0,0,0,0,0,0,0,0
  28.          .BYTE 0,0,0,0,0,0,0,0
  29.          .BYTE 0,9,8,10,15,7,1,1
  30.          .BYTE 1,1,13,3,14,4,6,0
  31.  
  32.          .BYTE 0,0,0,0,0,0,0,0
  33.          .BYTE 0,0,0,0,0,0,0,0
  34.  
  35.  
  36.  
  37. ;------------ ╞ ╠ ╔ - ╠OGO -------------
  38.  
  39.  
  40. FLI
  41.  
  42.          LDA #56
  43.          STA $D011
  44.  
  45.          INC FLY1+1
  46. FLY1     LDA #0
  47.          LSR A
  48.          AND #31
  49.          TAY
  50.  
  51.          LDX #0
  52. FLI0     LDA COLS,Y
  53.          STA $50,X
  54.          INY
  55.          INX
  56.          CPX #15
  57.          BNE FLI0
  58.          LDA #0
  59.          STA $5F
  60.  
  61.  
  62.          LDA #49
  63. FLI1     CMP $D012
  64.          BCS FLI1
  65.  
  66.          LDX #3
  67. FLI2     DEX
  68.          BNE FLI2
  69.  
  70.          LDA #63
  71.          LDX #8
  72.          STA $D011
  73.          STX $D018
  74.          LDA $5F
  75.          STA $D020
  76.          STA $D021
  77.          LDA #56
  78.          LDX #24
  79.          STA $D011
  80.          STX $D018
  81.          LDA $5F
  82.          STA $D020
  83.          STA $D021
  84.          LDA #57
  85.          LDX #40
  86.          STA $D011
  87.          STX $D018
  88.          LDA $5F
  89.          STA $D020
  90.          STA $D021
  91.          LDA #58
  92.          LDX #56
  93.          STA $D011
  94.          STX $D018
  95.          LDA $5F
  96.          STA $D020
  97.          STA $D021
  98.          LDA #59
  99.          LDX #72
  100.          STA $D011
  101.          STX $D018
  102.          LDA $50
  103.          STA $D020
  104.          STA $D021
  105.          LDA #60
  106.          LDX